home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Devpac 2.12 disk 2.adf / include.strip / exec / libraries.i < prev    next >
Text File  |  1987-03-31  |  1KB  |  59 lines
  1.     IFND EXEC_LIBRARIES_I
  2. EXEC_LIBRARIES_I SET 1
  3.     IFND EXEC_NODES_I
  4.     INCLUDE "exec/nodes.i"
  5.     ENDC !EXEC_NODES_I
  6. LIB_VECTSIZE    EQU     6
  7. LIB_RESERVED    EQU     4
  8. LIB_BASE        EQU     $FFFFFFFA
  9. LIB_USERDEF     EQU     LIB_BASE-(LIB_RESERVED*LIB_VECTSIZE)
  10. LIB_NONSTD      EQU     LIB_USERDEF
  11. LIBINIT     MACRO   *
  12.      IFC     '\1',''
  13. COUNT_LIB   SET     LIB_USERDEF
  14.      ENDC
  15.      IFNC    '\1',''
  16. COUNT_LIB   SET     \1
  17.      ENDC
  18.      ENDM
  19. LIBDEF      MACRO   *
  20. \1          EQU     COUNT_LIB
  21. COUNT_LIB   SET     COUNT_LIB-LIB_VECTSIZE
  22.      ENDM
  23.     LIBINIT LIB_BASE
  24.     LIBDEF  LIB_OPEN
  25.     LIBDEF  LIB_CLOSE
  26.     LIBDEF  LIB_EXPUNGE
  27.     LIBDEF  LIB_EXTFUNC
  28.  STRUCTURE LIB,LN_SIZE
  29.     UBYTE   LIB_FLAGS
  30.     UBYTE   LIB_pad
  31.     UWORD   LIB_NEGSIZE
  32.     UWORD   LIB_POSSIZE
  33.     UWORD   LIB_VERSION
  34.     UWORD   LIB_REVISION
  35.     APTR    LIB_IDSTRING
  36.     ULONG   LIB_SUM
  37.     UWORD   LIB_OPENCNT
  38.     LABEL   LIB_SIZE
  39.     BITDEF  LIB,SUMMING,0
  40.     BITDEF  LIB,CHANGED,1
  41.     BITDEF  LIB,SUMUSED,2
  42.     BITDEF  LIB,DELEXP,3
  43. CALLLIB     MACRO   *
  44.  IFGT NARG-1
  45.      FAIL    !!!
  46.  ENDC
  47.      JSR     \1(A6)
  48.      ENDM
  49. LINKLIB     MACRO   *
  50.  IFGT NARG-2
  51.      FAIL    !!!
  52.  ENDC
  53.      MOVE.L  A6,-(SP)
  54.      MOVE.L  \2,A6
  55.      CALLLIB \1
  56.      MOVE.L  (SP)+,A6
  57.      ENDM
  58.     ENDC !EXEC_LIBRARIES_I
  59.